home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
GEMFBIND
/
VSHOWC.S
< prev
next >
Wrap
Text File
|
1993-03-16
|
2KB
|
55 lines
;*========================================================================
;* VDIFAST Public Domain VDI bindings.
;*========================================================================
;*------------------------------------------------------------------------
;* Show cursor.
;*------------------------------------------------------------------------
globl _v_show_c
_v_show_c:
; .cargs #8,handle.w,rset.w
handle = 8
rset = 10
link a6,#0
; VContrl #122,,,#1
move.w handle(a6),-(sp) ; contrl[6]
clr.l -(sp) ; contrl[5,4]
move.w #1,-(sp) ; contrl[3]
subq.l #2,sp ; contrl[2]
clr.w -(sp) ; contrl[1]
move.w #122,-(sp) ; contrl[0]
lea -12(sp),sp ;* -> ptsout, intout, ptsin
pea rset(a6) ;* -> intin
pea 16(sp) ;* -> contrl
jmp vdicall
;*------------------------------------------------------------------------
;* Hide cursor.
;*------------------------------------------------------------------------
globl _v_hide_c
_v_hide_c:
; .cargs #8,handle.w
handle = 8
link a6,#0
; VContrl #123
move.w handle(a6),-(sp) ; contrl[6]
clr.l -(sp) ; contrl[5,4]
clr.l -(sp) ; contrl[3,2]
clr.w -(sp) ; contrl[1]
move.w #123,-(sp) ; contrl[0]
pea (sp) ;* -> contrl
jmp vdicall
end